/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 6 / develop Issue 6 code / TCP.sea / TCP / finger / finger.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 66 69 6e 67 65 72 | 2e 63 00 00 00 00 00 00 |..finger|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0f fd 00 | 00 01 7e a4 20 07 be a4 |........|..~. ...|
|00000060| 20 07 be 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | .......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f0 b6 00 00 |........|........|
|00000080| 2f 2a 20 4d 61 63 54 43 | 50 20 66 69 6e 67 65 72 |/* MacTC|P finger|
|00000090| 20 63 6c 69 65 6e 74 09 | 09 09 2a 2f 0d 2f 2a 20 | client.|..*/./* |
|000000a0| 77 72 69 74 74 65 6e 20 | 62 79 20 53 74 65 76 65 |written |by Steve|
|000000b0| 6e 20 46 61 6c 6b 65 6e | 62 75 72 67 09 2a 2f 0d |n Falken|burg.*/.|
|000000c0| 2f 2a 20 09 09 09 09 09 | 09 09 09 2a 2f 0d 2f 2a |/* .....|...*/./*|
|000000d0| 20 31 30 2f 35 2f 39 30 | 09 6f 72 69 67 69 6e 61 | 10/5/90|.origina|
|000000e0| 6c 20 63 6f 64 69 6e 67 | 09 09 2a 2f 0d 0d 23 69 |l coding|..*/..#i|
|000000f0| 6e 63 6c 75 64 65 20 22 | 63 6f 6d 70 61 74 2e 68 |nclude "|compat.h|
|00000100| 22 0d 0d 23 69 66 64 65 | 66 20 50 52 4f 54 4f 53 |"..#ifde|f PROTOS|
|00000110| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 54 79 70 65 73 |.#includ|e <Types|
|00000120| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 4d 65 |.h>.#inc|lude <Me|
|00000130| 6d 6f 72 79 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |mory.h>.|#include|
|00000140| 20 3c 50 61 63 6b 61 67 | 65 73 2e 68 3e 0d 23 69 | <Packag|es.h>.#i|
|00000150| 6e 63 6c 75 64 65 20 3c | 43 75 72 73 6f 72 43 74 |nclude <|CursorCt|
|00000160| 6c 2e 68 3e 0d 23 65 6e | 64 69 66 0d 0d 23 69 6e |l.h>.#en|dif..#in|
|00000170| 63 6c 75 64 65 20 3c 53 | 74 72 69 6e 67 2e 68 3e |clude <S|tring.h>|
|00000180| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 43 76 74 41 |..#inclu|de "CvtA|
|00000190| 64 64 72 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |ddr.h".#|include |
|000001a0| 22 4d 61 63 54 43 50 43 | 6f 6d 6d 6f 6e 54 79 70 |"MacTCPC|ommonTyp|
|000001b0| 65 73 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |es.h".#i|nclude "|
|000001c0| 54 43 50 50 42 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |TCPPB.h"|.#includ|
|000001d0| 65 20 22 54 43 50 48 69 | 2e 68 22 0d 0d 0d 2f 2a |e "TCPHi|.h".../*|
|000001e0| 20 63 6f 6e 73 74 61 6e | 74 73 20 2a 2f 0d 0d 23 | constan|ts */..#|
|000001f0| 64 65 66 69 6e 65 20 6b | 46 69 6e 67 65 72 50 6f |define k|FingerPo|
|00000200| 72 74 20 37 39 09 09 2f | 2a 20 54 43 50 20 70 6f |rt 79../|* TCP po|
|00000210| 72 74 20 61 73 73 69 67 | 6e 65 64 20 66 6f 72 20 |rt assig|ned for |
|00000220| 66 69 6e 67 65 72 20 70 | 72 6f 74 6f 63 6f 6c 20 |finger p|rotocol |
|00000230| 2a 2f 0d 23 64 65 66 69 | 6e 65 20 6b 42 75 66 53 |*/.#defi|ne kBufS|
|00000240| 69 7a 65 09 31 36 33 38 | 34 09 2f 2a 20 53 69 7a |ize.1638|4./* Siz|
|00000250| 65 20 66 6f 72 20 54 43 | 50 20 73 74 72 65 61 6d |e for TC|P stream|
|00000260| 20 62 75 66 66 65 72 20 | 61 6e 64 20 72 65 63 65 | buffer |and rece|
|00000270| 69 76 65 20 62 75 66 66 | 65 72 20 2a 2f 0d 23 64 |ive buff|er */.#d|
|00000280| 65 66 69 6e 65 20 6b 54 | 69 6d 65 4f 75 74 09 32 |efine kT|imeOut.2|
|00000290| 30 09 09 2f 2a 20 54 69 | 6d 65 6f 75 74 20 66 6f |0../* Ti|meout fo|
|000002a0| 72 20 54 43 50 20 63 6f | 6d 6d 61 6e 64 73 20 2a |r TCP co|mmands *|
|000002b0| 2f 0d 0d 0d 2f 2a 20 66 | 75 63 74 69 6f 6e 20 70 |/.../* f|uction p|
|000002c0| 72 6f 74 6f 74 79 70 65 | 73 20 2a 2f 0d 0d 76 6f |rototype|s */..vo|
|000002d0| 69 64 20 6d 61 69 6e 28 | 69 6e 74 20 61 72 67 63 |id main(|int argc|
|000002e0| 2c 63 68 61 72 20 2a 61 | 72 67 76 5b 5d 29 3b 0d |,char *a|rgv[]);.|
|000002f0| 4f 53 45 72 72 20 46 69 | 6e 67 65 72 28 63 68 61 |OSErr Fi|nger(cha|
|00000300| 72 20 2a 75 73 65 72 69 | 64 2c 63 68 61 72 20 2a |r *useri|d,char *|
|00000310| 68 6f 73 74 4e 61 6d 65 | 2c 48 61 6e 64 6c 65 20 |hostName|,Handle |
|00000320| 2a 66 69 6e 67 65 72 44 | 61 74 61 29 3b 0d 4f 53 |*fingerD|ata);.OS|
|00000330| 45 72 72 20 47 65 74 46 | 69 6e 67 65 72 44 61 74 |Err GetF|ingerDat|
|00000340| 61 28 75 6e 73 69 67 6e | 65 64 20 6c 6f 6e 67 20 |a(unsign|ed long |
|00000350| 73 74 72 65 61 6d 2c 48 | 61 6e 64 6c 65 20 2a 66 |stream,H|andle *f|
|00000360| 69 6e 67 65 72 44 61 74 | 61 29 3b 0d 76 6f 69 64 |ingerDat|a);.void|
|00000370| 20 46 69 78 43 52 4c 46 | 28 63 68 61 72 20 2a 64 | FixCRLF|(char *d|
|00000380| 61 74 61 29 3b 0d 42 6f | 6f 6c 65 61 6e 20 47 69 |ata);.Bo|olean Gi|
|00000390| 76 65 54 69 6d 65 28 73 | 68 6f 72 74 20 73 6c 65 |veTime(s|hort sle|
|000003a0| 65 70 54 69 6d 65 29 3b | 0d 0d 2f 2a 20 67 6c 6f |epTime);|../* glo|
|000003b0| 62 61 6c 73 20 2a 2f 0d | 0d 42 6f 6f 6c 65 61 6e |bals */.|.Boolean|
|000003c0| 20 67 43 61 6e 63 65 6c | 20 3d 20 66 61 6c 73 65 | gCancel| = false|
|000003d0| 3b 09 2f 2a 20 74 68 69 | 73 20 69 73 20 73 65 74 |;./* thi|s is set|
|000003e0| 20 74 6f 20 74 72 75 65 | 20 69 66 20 74 68 65 20 | to true| if the |
|000003f0| 75 73 65 72 20 63 61 6e | 63 65 6c 73 20 61 6e 20 |user can|cels an |
|00000400| 6f 70 65 72 61 74 69 6f | 6e 20 2a 2f 0d 0d 2f 2a |operatio|n */../*|
|00000410| 09 6d 61 69 6e 20 65 6e | 74 72 79 20 70 6f 69 6e |.main en|try poin|
|00000420| 74 20 66 6f 72 20 66 69 | 6e 67 65 72 09 09 2a 2f |t for fi|nger..*/|
|00000430| 0d 2f 2a 20 09 09 09 09 | 09 09 09 09 09 2a 2f 0d |./* ....|.....*/.|
|00000440| 2f 2a 09 75 73 61 67 65 | 3a 20 66 69 6e 67 65 72 |/*.usage|: finger|
|00000450| 20 3c 75 73 65 72 3e 40 | 3c 68 6f 73 74 3e 09 09 | <user>@|<host>..|
|00000460| 2a 2f 0d 2f 2a 09 09 09 | 09 09 09 09 09 09 2a 2f |*/./*...|......*/|
|00000470| 0d 2f 2a 09 74 68 69 73 | 20 66 75 6e 63 74 69 6f |./*.this| functio|
|00000480| 6e 20 70 61 72 73 65 73 | 20 74 68 65 20 61 72 67 |n parses| the arg|
|00000490| 73 20 66 72 6f 6d 20 74 | 68 65 20 63 6f 6d 6d 61 |s from t|he comma|
|000004a0| 6e 64 20 6c 69 6e 65 2c | 09 09 2a 2f 0d 2f 2a 09 |nd line,|..*/./*.|
|000004b0| 63 61 6c 6c 73 20 46 69 | 6e 67 65 72 28 29 20 74 |calls Fi|nger() t|
|000004c0| 6f 20 67 65 74 20 69 6e | 66 6f 20 61 6e 64 20 70 |o get in|fo and p|
|000004d0| 72 69 6e 74 73 20 74 68 | 65 20 72 65 74 75 72 6e |rints th|e return|
|000004e0| 65 64 20 69 6e 66 6f 2e | 09 2a 2f 0d 0d 76 6f 69 |ed info.|.*/..voi|
|000004f0| 64 20 6d 61 69 6e 28 69 | 6e 74 20 61 72 67 63 2c |d main(i|nt argc,|
|00000500| 63 68 61 72 20 2a 61 72 | 67 76 5b 5d 29 0d 7b 0d |char *ar|gv[]).{.|
|00000510| 09 4f 53 45 72 72 20 65 | 72 72 3b 0d 09 48 61 6e |.OSErr e|rr;..Han|
|00000520| 64 6c 65 20 74 68 65 46 | 69 6e 67 65 72 3b 0d 09 |dle theF|inger;..|
|00000530| 63 68 61 72 20 75 73 65 | 72 69 64 5b 32 35 36 5d |char use|rid[256]|
|00000540| 2c 68 6f 73 74 5b 32 35 | 36 5d 3b 0d 09 0d 09 69 |,host[25|6];....i|
|00000550| 66 20 28 61 72 67 63 20 | 21 3d 20 32 29 20 7b 0d |f (argc |!= 2) {.|
|00000560| 09 09 70 72 69 6e 74 66 | 28 22 57 72 6f 6e 67 20 |..printf|("Wrong |
|00000570| 6e 75 6d 62 65 72 20 6f | 66 20 70 61 72 61 6d 65 |number o|f parame|
|00000580| 74 65 72 73 20 74 6f 20 | 66 69 6e 67 65 72 20 63 |ters to |finger c|
|00000590| 61 6c 6c 5c 6e 22 29 3b | 0d 09 09 72 65 74 75 72 |all\n");|...retur|
|000005a0| 6e 3b 0d 09 7d 0d 09 0d | 09 73 73 63 61 6e 66 28 |n;..}...|.sscanf(|
|000005b0| 61 72 67 76 5b 31 5d 2c | 22 25 5b 5e 40 5d 40 25 |argv[1],|"%[^@]@%|
|000005c0| 73 22 2c 75 73 65 72 69 | 64 2c 68 6f 73 74 29 3b |s",useri|d,host);|
|000005d0| 0d 09 0d 09 73 74 72 63 | 61 74 28 75 73 65 72 69 |....strc|at(useri|
|000005e0| 64 2c 22 5c 6e 5c 72 22 | 29 3b 0d 09 0d 09 65 72 |d,"\n\r"|);....er|
|000005f0| 72 20 3d 20 46 69 6e 67 | 65 72 28 75 73 65 72 69 |r = Fing|er(useri|
|00000600| 64 2c 68 6f 73 74 2c 26 | 74 68 65 46 69 6e 67 65 |d,host,&|theFinge|
|00000610| 72 29 3b 0d 09 0d 09 69 | 66 20 28 65 72 72 20 3d |r);....i|f (err =|
|00000620| 3d 20 6e 6f 45 72 72 29 | 20 7b 0d 09 09 48 4c 6f |= noErr)| {...HLo|
|00000630| 63 6b 28 74 68 65 46 69 | 6e 67 65 72 29 3b 0d 09 |ck(theFi|nger);..|
|00000640| 09 46 69 78 43 52 4c 46 | 28 2a 74 68 65 46 69 6e |.FixCRLF|(*theFin|
|00000650| 67 65 72 29 3b 0d 09 09 | 70 72 69 6e 74 66 28 22 |ger);...|printf("|
|00000660| 5c 6e 25 73 5c 6e 22 2c | 2a 74 68 65 46 69 6e 67 |\n%s\n",|*theFing|
|00000670| 65 72 29 3b 0d 09 09 44 | 69 73 70 6f 73 48 61 6e |er);...D|isposHan|
|00000680| 64 6c 65 28 74 68 65 46 | 69 6e 67 65 72 29 3b 0d |dle(theF|inger);.|
|00000690| 09 7d 0d 09 65 6c 73 65 | 0d 09 09 70 72 69 6e 74 |.}..else|...print|
|000006a0| 66 28 22 41 6e 20 65 72 | 72 6f 72 20 68 61 73 20 |f("An er|ror has |
|000006b0| 6f 63 63 75 72 72 65 64 | 3a 20 25 68 64 5c 6e 22 |occurred|: %hd\n"|
|000006c0| 2c 65 72 72 29 3b 0d 7d | 0d 0d 0d 2f 2a 09 46 69 |,err);.}|.../*.Fi|
|000006d0| 6e 67 65 72 28 29 09 09 | 09 09 09 09 09 09 09 09 |nger()..|........|
|000006e0| 09 09 09 09 2a 2f 0d 2f | 2a 20 09 09 09 09 09 09 |....*/./|* ......|
|000006f0| 09 09 09 09 09 09 09 09 | 09 09 09 2a 2f 0d 2f 2a |........|...*/./*|
|00000700| 09 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 |.This fu|nction c|
|00000710| 6f 6e 76 65 72 74 73 20 | 74 68 65 20 68 6f 73 74 |onverts |the host|
|00000720| 09 73 74 72 69 6e 67 20 | 74 6f 20 61 6e 20 49 50 |.string |to an IP|
|00000730| 20 6e 75 6d 62 65 72 2c | 20 6f 70 65 6e 73 20 61 | number,| opens a|
|00000740| 09 2a 2f 0d 2f 2a 09 63 | 6f 6e 6e 65 63 74 69 6f |.*/./*.c|onnectio|
|00000750| 6e 20 74 6f 20 74 68 65 | 20 72 65 6d 6f 74 65 20 |n to the| remote |
|00000760| 68 6f 73 74 20 6f 6e 20 | 54 43 50 20 70 6f 72 74 |host on |TCP port|
|00000770| 20 37 39 2c 20 73 65 6e | 64 73 20 74 68 65 20 69 | 79, sen|ds the i|
|00000780| 64 20 74 6f 09 2a 2f 0d | 2f 2a 09 74 68 65 20 72 |d to.*/.|/*.the r|
|00000790| 65 6d 6f 74 65 20 68 6f | 73 74 20 61 6e 64 20 77 |emote ho|st and w|
|000007a0| 61 69 74 73 20 66 6f 72 | 20 74 68 65 20 69 6e 66 |aits for| the inf|
|000007b0| 6f 72 6d 61 74 69 6f 6e | 20 6f 6e 20 74 68 65 20 |ormation| on the |
|000007c0| 72 65 63 65 69 76 69 6e | 67 09 2a 2f 0d 2f 2a 09 |receivin|g.*/./*.|
|000007d0| 73 74 72 65 61 6d 2e 20 | 20 41 66 74 65 72 20 74 |stream. | After t|
|000007e0| 68 69 73 09 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |his.info|rmation |
|000007f0| 69 73 20 73 65 6e 74 2c | 20 74 68 65 20 63 6f 6e |is sent,| the con|
|00000800| 6e 65 63 74 69 6f 6e 20 | 69 73 09 09 2a 2f 0d 2f |nection |is..*/./|
|00000810| 2a 09 69 73 20 63 6c 6f | 73 65 64 20 64 6f 77 6e |*.is clo|sed down|
|00000820| 2e 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2a 2f |........|......*/|
|00000830| 0d 0d 4f 53 45 72 72 20 | 46 69 6e 67 65 72 28 63 |..OSErr |Finger(c|
|00000840| 68 61 72 20 2a 75 73 65 | 72 69 64 2c 63 68 61 72 |har *use|rid,char|
|00000850| 20 2a 68 6f 73 74 4e 61 | 6d 65 2c 48 61 6e 64 6c | *hostNa|me,Handl|
|00000860| 65 20 2a 66 69 6e 67 65 | 72 44 61 74 61 29 0d 7b |e *finge|rData).{|
|00000870| 0d 09 4f 53 45 72 72 20 | 65 72 72 3b 0d 09 75 6e |..OSErr |err;..un|
|00000880| 73 69 67 6e 65 64 20 6c | 6f 6e 67 20 69 70 41 64 |signed l|ong ipAd|
|00000890| 64 72 65 73 73 3b 0d 09 | 75 6e 73 69 67 6e 65 64 |dress;..|unsigned|
|000008a0| 20 6c 6f 6e 67 20 73 74 | 72 65 61 6d 3b 0d 09 0d | long st|ream;...|
|000008b0| 09 2f 2a 20 6f 70 65 6e | 20 74 68 65 20 6e 65 74 |./* open| the net|
|000008c0| 77 6f 72 6b 20 64 72 69 | 76 65 72 20 2a 2f 0d 09 |work dri|ver */..|
|000008d0| 0d 09 65 72 72 20 3d 20 | 49 6e 69 74 4e 65 74 77 |..err = |InitNetw|
|000008e0| 6f 72 6b 28 29 3b 0d 09 | 69 66 20 28 65 72 72 21 |ork();..|if (err!|
|000008f0| 3d 6e 6f 45 72 72 29 0d | 09 09 72 65 74 75 72 6e |=noErr).|..return|
|00000900| 20 65 72 72 3b 0d 09 0d | 09 2f 2a 20 67 65 74 20 | err;...|./* get |
|00000910| 72 65 6d 6f 74 65 20 6d | 61 63 68 69 6e 65 27 73 |remote m|achine's|
|00000920| 20 6e 65 74 77 6f 72 6b | 20 6e 75 6d 62 65 72 20 | network| number |
|00000930| 2a 2f 0d 09 0d 09 65 72 | 72 20 3d 20 43 6f 6e 76 |*/....er|r = Conv|
|00000940| 65 72 74 53 74 72 69 6e | 67 54 6f 41 64 64 72 28 |ertStrin|gToAddr(|
|00000950| 68 6f 73 74 4e 61 6d 65 | 2c 26 69 70 41 64 64 72 |hostName|,&ipAddr|
|00000960| 65 73 73 29 3b 0d 09 69 | 66 20 28 65 72 72 21 3d |ess);..i|f (err!=|
|00000970| 6e 6f 45 72 72 29 0d 09 | 09 72 65 74 75 72 6e 20 |noErr)..|.return |
|00000980| 65 72 72 3b 0d 09 0d 09 | 2f 2a 20 6f 70 65 6e 20 |err;....|/* open |
|00000990| 61 20 54 43 50 20 73 74 | 72 65 61 6d 20 2a 2f 0d |a TCP st|ream */.|
|000009a0| 09 0d 09 65 72 72 20 3d | 20 43 72 65 61 74 65 53 |...err =| CreateS|
|000009b0| 74 72 65 61 6d 28 26 73 | 74 72 65 61 6d 2c 6b 42 |tream(&s|tream,kB|
|000009c0| 75 66 53 69 7a 65 29 3b | 0d 09 69 66 20 28 65 72 |ufSize);|..if (er|
|000009d0| 72 21 3d 6e 6f 45 72 72 | 29 0d 09 09 72 65 74 75 |r!=noErr|)...retu|
|000009e0| 72 6e 20 65 72 72 3b 0d | 09 0d 09 65 72 72 20 3d |rn err;.|...err =|
|000009f0| 20 4f 70 65 6e 43 6f 6e | 6e 65 63 74 69 6f 6e 28 | OpenCon|nection(|
|00000a00| 73 74 72 65 61 6d 2c 69 | 70 41 64 64 72 65 73 73 |stream,i|pAddress|
|00000a10| 2c 6b 46 69 6e 67 65 72 | 50 6f 72 74 2c 6b 54 69 |,kFinger|Port,kTi|
|00000a20| 6d 65 4f 75 74 29 3b 0d | 09 69 66 20 28 65 72 72 |meOut);.|.if (err|
|00000a30| 3d 3d 6e 6f 45 72 72 29 | 20 7b 0d 09 09 65 72 72 |==noErr)| {...err|
|00000a40| 20 3d 20 53 65 6e 64 44 | 61 74 61 28 73 74 72 65 | = SendD|ata(stre|
|00000a50| 61 6d 2c 75 73 65 72 69 | 64 2c 28 75 6e 73 69 67 |am,useri|d,(unsig|
|00000a60| 6e 65 64 20 73 68 6f 72 | 74 29 73 74 72 6c 65 6e |ned shor|t)strlen|
|00000a70| 28 75 73 65 72 69 64 29 | 2c 66 61 6c 73 65 29 3b |(userid)|,false);|
|00000a80| 0d 09 09 69 66 20 28 65 | 72 72 3d 3d 6e 6f 45 72 |...if (e|rr==noEr|
|00000a90| 72 29 0d 09 09 09 65 72 | 72 20 3d 20 47 65 74 46 |r)....er|r = GetF|
|00000aa0| 69 6e 67 65 72 44 61 74 | 61 28 73 74 72 65 61 6d |ingerDat|a(stream|
|00000ab0| 2c 66 69 6e 67 65 72 44 | 61 74 61 29 3b 0d 09 09 |,fingerD|ata);...|
|00000ac0| 43 6c 6f 73 65 43 6f 6e | 6e 65 63 74 69 6f 6e 28 |CloseCon|nection(|
|00000ad0| 73 74 72 65 61 6d 29 3b | 0d 09 7d 0d 09 0d 09 52 |stream);|..}....R|
|00000ae0| 65 6c 65 61 73 65 53 74 | 72 65 61 6d 28 73 74 72 |eleaseSt|ream(str|
|00000af0| 65 61 6d 29 3b 0d 09 72 | 65 74 75 72 6e 20 65 72 |eam);..r|eturn er|
|00000b00| 72 3b 0d 7d 0d 0d 0d 4f | 53 45 72 72 20 47 65 74 |r;.}...O|SErr Get|
|00000b10| 46 69 6e 67 65 72 44 61 | 74 61 28 75 6e 73 69 67 |FingerDa|ta(unsig|
|00000b20| 6e 65 64 20 6c 6f 6e 67 | 20 73 74 72 65 61 6d 2c |ned long| stream,|
|00000b30| 48 61 6e 64 6c 65 20 2a | 66 69 6e 67 65 72 44 61 |Handle *|fingerDa|
|00000b40| 74 61 29 0d 7b 0d 09 4f | 53 45 72 72 20 65 72 72 |ta).{..O|SErr err|
|00000b50| 3b 0d 09 6c 6f 6e 67 20 | 62 75 66 4f 66 66 73 65 |;..long |bufOffse|
|00000b60| 74 20 3d 20 30 3b 0d 09 | 75 6e 73 69 67 6e 65 64 |t = 0;..|unsigned|
|00000b70| 20 73 68 6f 72 74 20 64 | 61 74 61 4c 65 6e 67 74 | short d|ataLengt|
|00000b80| 68 3b 0d 09 50 74 72 20 | 64 61 74 61 3b 0d 09 0d |h;..Ptr |data;...|
|00000b90| 09 2a 66 69 6e 67 65 72 | 44 61 74 61 20 3d 20 4e |.*finger|Data = N|
|00000ba0| 65 77 48 61 6e 64 6c 65 | 28 6b 42 75 66 53 69 7a |ewHandle|(kBufSiz|
|00000bb0| 65 29 3b 0d 09 65 72 72 | 20 3d 20 4d 65 6d 45 72 |e);..err| = MemEr|
|00000bc0| 72 6f 72 28 29 3b 0d 09 | 69 66 20 28 65 72 72 21 |ror();..|if (err!|
|00000bd0| 3d 6e 6f 45 72 72 29 0d | 09 09 72 65 74 75 72 6e |=noErr).|..return|
|00000be0| 20 65 72 72 3b 0d 09 09 | 0d 09 48 4c 6f 63 6b 28 | err;...|..HLock(|
|00000bf0| 2a 66 69 6e 67 65 72 44 | 61 74 61 29 3b 0d 09 64 |*fingerD|ata);..d|
|00000c00| 61 74 61 20 3d 20 2a 2a | 66 69 6e 67 65 72 44 61 |ata = **|fingerDa|
|00000c10| 74 61 3b 0d 09 64 61 74 | 61 4c 65 6e 67 74 68 20 |ta;..dat|aLength |
|00000c20| 3d 20 6b 42 75 66 53 69 | 7a 65 3b 0d 09 0d 09 64 |= kBufSi|ze;....d|
|00000c30| 6f 20 7b 0d 09 09 65 72 | 72 20 3d 20 52 65 63 76 |o {...er|r = Recv|
|00000c40| 44 61 74 61 28 73 74 72 | 65 61 6d 2c 64 61 74 61 |Data(str|eam,data|
|00000c50| 2c 26 64 61 74 61 4c 65 | 6e 67 74 68 2c 66 61 6c |,&dataLe|ngth,fal|
|00000c60| 73 65 29 3b 0d 09 09 69 | 66 20 28 65 72 72 3d 3d |se);...i|f (err==|
|00000c70| 6e 6f 45 72 72 29 20 7b | 0d 09 09 09 62 75 66 4f |noErr) {|....bufO|
|00000c80| 66 66 73 65 74 20 2b 3d | 20 64 61 74 61 4c 65 6e |ffset +=| dataLen|
|00000c90| 67 74 68 3b 0d 09 09 09 | 64 61 74 61 4c 65 6e 67 |gth;....|dataLeng|
|00000ca0| 74 68 20 3d 20 6b 42 75 | 66 53 69 7a 65 3b 0d 09 |th = kBu|fSize;..|
|00000cb0| 09 09 48 55 6e 6c 6f 63 | 6b 28 2a 66 69 6e 67 65 |..HUnloc|k(*finge|
|00000cc0| 72 44 61 74 61 29 3b 0d | 09 09 09 53 65 74 48 61 |rData);.|...SetHa|
|00000cd0| 6e 64 6c 65 53 69 7a 65 | 28 2a 66 69 6e 67 65 72 |ndleSize|(*finger|
|00000ce0| 44 61 74 61 2c 62 75 66 | 4f 66 66 73 65 74 2b 6b |Data,buf|Offset+k|
|00000cf0| 42 75 66 53 69 7a 65 29 | 3b 0d 09 09 09 65 72 72 |BufSize)|;....err|
|00000d00| 20 3d 20 4d 65 6d 45 72 | 72 6f 72 28 29 3b 0d 09 | = MemEr|ror();..|
|00000d10| 09 09 48 4c 6f 63 6b 28 | 2a 66 69 6e 67 65 72 44 |..HLock(|*fingerD|
|00000d20| 61 74 61 29 3b 0d 09 09 | 09 64 61 74 61 20 3d 20 |ata);...|.data = |
|00000d30| 2a 2a 66 69 6e 67 65 72 | 44 61 74 61 20 2b 20 62 |**finger|Data + b|
|00000d40| 75 66 4f 66 66 73 65 74 | 3b 0d 09 09 7d 0d 09 7d |ufOffset|;...}..}|
|00000d50| 20 77 68 69 6c 65 20 28 | 65 72 72 3d 3d 6e 6f 45 | while (|err==noE|
|00000d60| 72 72 29 3b 0d 09 0d 09 | 64 61 74 61 5b 30 5d 20 |rr);....|data[0] |
|00000d70| 3d 20 27 5c 30 27 3b 0d | 09 0d 09 48 55 6e 6c 6f |= '\0';.|...HUnlo|
|00000d80| 63 6b 28 2a 66 69 6e 67 | 65 72 44 61 74 61 29 3b |ck(*fing|erData);|
|00000d90| 0d 09 69 66 20 28 65 72 | 72 20 3d 3d 20 63 6f 6e |..if (er|r == con|
|00000da0| 6e 65 63 74 69 6f 6e 43 | 6c 6f 73 69 6e 67 29 0d |nectionC|losing).|
|00000db0| 09 09 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 7d |..err = |noErr;.}|
|00000dc0| 0d 0d 0d 2f 2a 20 46 69 | 78 43 52 4c 46 28 29 20 |.../* Fi|xCRLF() |
|00000dd0| 72 65 6d 6f 76 65 73 20 | 74 68 65 20 6c 69 6e 65 |removes |the line|
|00000de0| 66 65 65 64 73 20 66 72 | 6f 6d 20 61 09 2a 2f 0d |feeds fr|om a.*/.|
|00000df0| 2f 2a 20 74 65 78 74 20 | 62 75 66 66 65 72 2e 20 |/* text |buffer. |
|00000e00| 20 54 68 69 73 20 69 73 | 20 6e 65 63 65 73 73 61 | This is| necessa|
|00000e10| 72 79 2c 20 73 69 6e 63 | 65 09 2a 2f 0d 2f 2a 20 |ry, sinc|e.*/./* |
|00000e20| 61 6c 6c 20 74 65 78 74 | 20 6f 6e 20 74 68 65 20 |all text| on the |
|00000e30| 6e 65 74 77 6f 72 6b 20 | 69 73 20 65 6d 62 65 64 |network |is embed|
|00000e40| 64 65 64 20 77 69 74 68 | 09 2a 2f 0d 2f 2a 20 63 |ded with|.*/./* c|
|00000e50| 61 72 72 61 69 67 65 20 | 72 65 74 75 72 6e 20 6c |arraige |return l|
|00000e60| 69 6e 65 66 65 65 64 20 | 70 61 69 72 73 2e 09 09 |inefeed |pairs...|
|00000e70| 09 2a 2f 0d 0d 76 6f 69 | 64 20 46 69 78 43 52 4c |.*/..voi|d FixCRL|
|00000e80| 46 28 63 68 61 72 20 2a | 64 61 74 61 29 0d 7b 0d |F(char *|data).{.|
|00000e90| 09 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a |.registe|r char *|
|00000ea0| 73 6f 75 72 63 65 2c 2a | 64 65 73 74 3b 0d 09 6c |source,*|dest;..l|
|00000eb0| 6f 6e 67 20 6c 65 6e 67 | 74 68 3b 0d 09 0d 09 6c |ong leng|th;....l|
|00000ec0| 65 6e 67 74 68 20 3d 20 | 73 74 72 6c 65 6e 28 64 |ength = |strlen(d|
|00000ed0| 61 74 61 29 3b 0d 09 0d | 09 69 66 20 28 2a 64 61 |ata);...|.if (*da|
|00000ee0| 74 61 29 20 7b 0d 09 09 | 73 6f 75 72 63 65 20 3d |ta) {...|source =|
|00000ef0| 20 64 65 73 74 20 3d 20 | 64 61 74 61 3b 0d 09 09 | dest = |data;...|
|00000f00| 77 68 69 6c 65 20 28 28 | 73 6f 75 72 63 65 20 2d |while ((|source -|
|00000f10| 20 64 61 74 61 29 20 3c | 20 28 6c 65 6e 67 74 68 | data) <| (length|
|00000f20| 2d 31 29 29 20 7b 0d 09 | 09 09 69 66 20 28 2a 73 |-1)) {..|..if (*s|
|00000f30| 6f 75 72 63 65 20 3d 3d | 20 27 5c 72 27 29 0d 09 |ource ==| '\r')..|
|00000f40| 09 09 09 73 6f 75 72 63 | 65 2b 2b 3b 0d 09 09 09 |...sourc|e++;....|
|00000f50| 2a 64 65 73 74 2b 2b 20 | 3d 20 2a 73 6f 75 72 63 |*dest++ |= *sourc|
|00000f60| 65 2b 2b 3b 0d 09 09 7d | 0d 09 09 69 66 20 28 2a |e++;...}|...if (*|
|00000f70| 73 6f 75 72 63 65 20 21 | 3d 20 27 5c 72 27 20 26 |source !|= '\r' &|
|00000f80| 26 20 28 73 6f 75 72 63 | 65 20 2d 20 64 61 74 61 |& (sourc|e - data|
|00000f90| 29 20 3c 20 6c 65 6e 67 | 74 68 29 0d 09 09 09 2a |) < leng|th)....*|
|00000fa0| 64 65 73 74 2b 2b 20 3d | 20 2a 73 6f 75 72 63 65 |dest++ =| *source|
|00000fb0| 2b 2b 3b 0d 09 09 6c 65 | 6e 67 74 68 20 3d 20 64 |++;...le|ngth = d|
|00000fc0| 65 73 74 20 2d 20 64 61 | 74 61 3b 0d 09 7d 0d 09 |est - da|ta;..}..|
|00000fd0| 0d 09 2a 64 65 73 74 20 | 3d 20 27 5c 30 27 3b 0d |..*dest |= '\0';.|
|00000fe0| 7d 0d 0d 0d 2f 2a 20 74 | 68 69 73 20 72 6f 75 74 |}.../* t|his rout|
|00000ff0| 69 6e 65 20 77 6f 75 6c | 64 20 6e 6f 72 6d 61 6c |ine woul|d normal|
|00001000| 6c 79 20 62 65 20 61 20 | 63 61 6c 6c 62 61 63 6b |ly be a |callback|
|00001010| 20 66 6f 72 20 67 69 76 | 69 6e 67 20 74 69 6d 65 | for giv|ing time|
|00001020| 20 74 6f 20 62 61 63 6b | 67 72 6f 75 6e 64 0d 09 | to back|ground..|
|00001030| 61 70 70 73 20 2a 2f 0d | 09 0d 42 6f 6f 6c 65 61 |apps */.|..Boolea|
|00001040| 6e 20 47 69 76 65 54 69 | 6d 65 28 73 68 6f 72 74 |n GiveTi|me(short|
|00001050| 20 73 6c 65 65 70 54 69 | 6d 65 29 0d 7b 0d 09 53 | sleepTi|me).{..S|
|00001060| 70 69 6e 43 75 72 73 6f | 72 28 31 29 3b 0d 09 72 |pinCurso|r(1);..r|
|00001070| 65 74 75 72 6e 20 74 72 | 75 65 3b 0d 7d 00 00 00 |eturn tr|ue;.}...|
|00001080| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001090| 00 00 00 78 04 51 75 69 | 74 78 02 00 00 00 54 45 |...x.Qui|tx....TE|
|000010a0| 58 54 4d 50 53 20 01 00 | 00 50 00 60 00 00 00 00 |XTMPS ..|.P.`....|
|000010b0| 08 66 69 6e 67 65 72 2e | 63 00 02 00 00 00 54 45 |.finger.|c.....TE|
|000010c0| 58 54 4d 50 53 20 01 00 | 00 40 00 c0 00 00 00 00 |XTMPS ..|.@......|
|000010d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 40 00 c0 |..TEXTMP|S ...@..|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 a3 31 5a 35 00 00 | 0f fd 00 00 01 7e 00 00 |...1Z5..|.....~..|
|00001100| 0c 00 00 00 00 78 06 52 | 65 73 75 6d 65 52 02 00 |.....x.R|esumeR..|
|00001110| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 3c 00 60 |..TEXTMP|S ...<.`|
|00001120| 00 00 00 00 00 7f 00 00 | 00 00 01 37 00 00 06 00 |........|...7....|
|00001130| 00 00 00 00 01 a8 00 00 | 06 00 a1 5b 7e c0 a1 5b |........|...[~..[|
|00001140| 7e c0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |~.......|........|
|00001150| 00 00 00 00 00 00 00 00 | 09 aa 00 01 00 00 00 00 |........|........|
|00001160| 00 00 00 00 09 a9 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 0e 00 00 00 | 00 78 08 52 4f 4d 20 4d |........|.x.ROM M|
|00001180| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 84 |........|........|
|000011a0| 00 24 00 09 00 24 00 06 | 00 04 00 33 00 1b 01 c0 |.$...$..|...3....|
|000011b0| 02 38 00 33 00 1b 01 c0 | 02 38 a3 ef a8 31 00 00 |.8.3....|.8...1..|
|000011c0| 09 91 00 00 09 91 00 00 | 08 51 01 00 00 00 01 00 |........|.Q......|
|000011d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 56 ec 24 |...L...L|...2.V.$|
|000011e0| 0d 98 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000011f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 58 93 4c 00 00 |........|...X.L..|
+--------+-------------------------+-------------------------+--------+--------+